(choose-completion-string): Clear mouse-face property.

diff --git a/lisp/simple.el b/lisp/simple.el
index 5f58d18e74ebbae7d5070d0e843c138ae2d88af9..13c44666a3717eb4e86851676adfb0ef3b360dcf 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2482,6 +2482,8 @@ it were the arg to `interactive' (which see) to interactively read the value."
       (set-buffer buffer)
       (choose-completion-delete-max-match choice)
       (insert choice)
+      (remove-text-properties (- (point) (length choice)) (point)
+                             '(mouse-face nil))
       ;; Update point in the window that BUFFER is showing in.
       (let ((window (get-buffer-window buffer t)))
        (set-window-point window (point)))